/* OUTPUT TO PRINTER. */

FOR EACH ptp_det WHERE ptp__chr01 = "C" BREAK BY ptp_part :

    ACCUMULATE ptp_part (COUNT BY ptp_part).
    IF (ACCUM COUNT BY ptp_part ptp_part) > 1 THEN
       DISP ptp_part ptp_site ptp_pm_code (ACCUM COUNT BY ptp_part ptp_part) WITH STREAM-IO .
END.
